#!perl -w
use strict;

use CGI qw/ :standard start_ul end_ul start_li end_li/;
use CGI::Pretty qw/ :html /;

my $working = <<TODO;
Get procmail working
Create contact form to send email?
Finish testing puzzle 2
Add reflective XSS to products page
Make hidden field puzzle
TODO

my $dayof = <<DAYOF;
Recreate SQL databases
Regenerate hash
Fetch set_cookie with script
DAYOF

print header,
			start_html('TODO'),
			start_ul,
				start_li,"TODO",
					ul(li([split(/\n/,$working)])),
				end_li,
				start_li,"Day Of", 
					ul(li([split(/\n/,$dayof)])),
				end_li,
			end_ul,
			end_html;
